home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 95 / Amiga News 95.iso / dpat / dpat62 / objectuik.lha / rexx / MkUIKObjpp.ced < prev   
Text File  |  1994-03-03  |  2KB  |  52 lines
  1. /*****************************************************
  2.  * MACRO CygnusED : UIKObjet DICE-C Compiler options *
  3.  * MkUIKObjPP.ced Version 1.1 du 02/03/94            *
  4.  * © 1993,1994 Florent BOIREAU                       *
  5.  *****************************************************/
  6. options results
  7.  
  8. save
  9. status 21
  10. file = result
  11. filessc = substr(file,1,length(file)-2)
  12. fileo = filessc || ".o"
  13. fileheads = filessc || "head.asm"
  14. fileheado = filessc || "head.o"
  15. fileuikobj = "UIKObj_"||filessc
  16.  
  17. cmd = "delete t:DICEErr"
  18. address command cmd
  19.  
  20. say "Compilation de l'objet"
  21. /* cmd = "dcc -c -mD -mC " || file */
  22. cmd = "dcc -c -mD -mC " || file " " || fileheads
  23. address command cmd
  24. if RC>0 then
  25.   do
  26.     R=open(FileS,'t:DICEErr',read)
  27.     Ch=readln(FileS);Col=readln(FileS);Col=readln(FileS);close(FileS)
  28.     p=pos('L:',Ch);Ch=right(Ch,length(Ch)-p-1)
  29.     p=pos(' ',Ch);Err=right(Ch,length(Ch)-p);Ch=left(Ch,p-1);L=0
  30.     do i=1 to length(Ch)
  31.         L=L+(c2x(substr(Ch,i,1))-30)*(10**(length(Ch)-i))
  32.     end
  33.     P=pos('^',Col)
  34.     say;say "Première Erreur de Compilation en Ligne "L "Colonne "P;say
  35.     address command waitreturn
  36.     jumpto L P
  37.     okay1 Err
  38.     exit 0
  39.   end;
  40.  
  41. /* say;say "Assemblage Header"        */
  42. /* cmd="genam " || fileheads || " -L" */
  43. /* address command cmd                */
  44.  
  45. say;say "Edition des liens et création de l'objet"
  46. /* cmd = "blink " || fileheado ||" "|| fileo ||" to "||fileuikobj||" lib uik.lib pp.lib amiga.lib ND"         */
  47. cmd = "blink " || fileheado ||" "|| fileo ||" to "||fileuikobj||" lib uik.lib ppnb.lib amiga.lib SC SD ND"
  48. /*cmd = "dlink " || fileheado ||" "|| fileo ||" -o "||fileuikobj||" uik.lib ppnb.lib amiga.lib"*/
  49. address command cmd
  50. address command waitreturn
  51. exit 0
  52.